import Data.List

euler_052 = head [ x | x<-[1..], (length.nub) [(sort.show) x == (sort.show.(*n)) x|n<-[1..6]] == 1 ]  :: Int